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4 001 0 XTITLE 'WORKIO - module for all i/o to workfile’. é 
3 ¢ Oe MODULE EDTSWORKIO ( ! Basic work i/o routine for EDT ° 
: i Bob7 JDENT = 'vV046-000" «i: ! File: WORKIO.BLI Edit: JBS1009 ; 
; des : 
3 5 Ban? 1 BEGIN : 
Re 3> 006 1: | : 
$ 9444 : “TO RMaeaiepen a eagram tesa pray << carat ity | ; 
; Hd " | 3 
ae. 0009 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B © | ; 
; 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * | : é 
¢ 4 O01) 1 is ALL RIGHTS RESERVED. * 2 ¢ 
Ps M ® e 
: i§ $018 1 !® aoe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh Lt * | : 
; (614 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : ¢ 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 4 
; 17 0017 1 !* O ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * > ¢ 
; 18 id ! ~ TRANSFERRED. * : § 
Py . ® a 
; 20 0020 1 !* pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | i ¢ 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | at 
; $$ 8058 ! :* CORPORATION. * : é 
e :* ® a 
; 24 Oose 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 4 
; $2 8052 ; ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : § 
Ps . ® | ° 
os ar 0027 1 !* ‘ | | 
: 28 0028 1 Pear eee eee Ree AERA AAA A ARK eee eee eee er | 
3; os 1! | 4 
; 3» 0030 1 B 4 
; oR 0031 1 !++ $< 
a O03 1 | FACILITY: EDT -- The DEC Standard Editor g-< 
; Zs 0033 1} 4 
; 34 0034 1 ! ABSTRACT: g 4 
; = 0035 1} 4 
; $3 0038 ! This is the basic file i/o routine used by EDT. : § 
; $ itt ! ENVIRONMENT: Runs on Vax/Vms : § 
; 40 9040 AUTHOR: Shelly T. Solomon, CREATION DATE: 29-JAN-1982 | ; ¢ 
; 43 0042 1 | MODIFIED BY: oa 
iy & 0043 1! | s ¢ 
: «44 8 44 1! 1-00) - Original. STS 29-Jan-1982 | | 
s; 6 45 45 1! 1- ¢ - Change parameter passed to edt$wf_rd on a STS 16- Feba 1362 4 
: 46 0046 1 ! 1-003 - Pass address of record dese. to edtssy! rd. 3 26-Feb-1982 ' a | 
3; «(47 0047 1 | 1-004 = Add Literals for callable S 08=Ma oe 4 
; «48 9k: 1} 1-282 - Return correct status to caller. Sis formar} 2 S 4 
; «649 049 1! 1- Be - Fix module name and standardize a eerence. JBS 07-Apr-1982 4 
; 0050 1 ! 1-007 - Return status from closing wort, : s JBS 12-Apr-198 | 
a. 2 0051 1 ! 1-008 = Don't use special Linkage on S$ 03-Jun-1 a4 
; 26 Boag : ‘ 1-009 = Don't need special Linkage on Waren yA sin JBS 22-Mar-1983 4 
5; & 0054 1 : | 
3 4 
m4 
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| 
| 


: $ o 5 ] XSBTTL ‘Declarations’ : 

; § cae) 2 i TABLE OF CONTENTS: | : 

3 60 §3 1 : 

; 61 060 1 REQUIRE ‘EDTSRC: TRAROUNAM'; | ‘ 

; 6 4 1 . 

; 6 200 1 FORWARD ROUTINE 

> 64 501 1 EDTSWORKIO; : 

: 65 508 1 ; 

3 202 | 1 INCLUDE FILES 1a 
; 68 206 1 i : 
: 69 0506 1 : 
: 70 0507 1 REQUIRE ‘EDTSRC:EDTREQ’; | 
oars B646 1 | s 4 
a L 0643 1 ZIF XBLISS (BLISS32) ie 
a 0644 1 XTHEN . 4 
;. © 0645 1 | 
: 7S 0646 1 REQUIRE "EDTSRC:SYSSYM'; i ¢ 
> 76 0676 1 | 3; 
; vr 0677 1 XFI 4 
; «78 0678 1 a 
: 79 0679 1! | s 4 
; 80 0680 1 ! MACROS: 3s ¢ 
; OBI 0681 1! a | 
; 682 0682 1} NONE | 
3 83 068 a | ° é 
; 84 0684 1 |! EQUATED SYMBOLS: | 
; 685 0685 1! 
: 86 0686 1 | : 3 
: 87 L 0687 1 ZIF XBLISS (BLISS32) | 
; 0688 1 XTHEN s < 
; «689 0689 1 ae | 
: 90 0690 1 LITERAL a | 
; 0691 1 EDTSK_FAC_NO = 133; a | 
; 9g 0692 1 3 ‘ 
| 0693 1 FI : 

: 94 0694 1 | 
: 95 0695 1 LITERAL ; i 
; 96 0696 1 EDT$K_OPEN_IN_OUT = “. | : i 
; wr 0697 1 EDTSK_GET = 5, : 

BRR EBTREcetosd Bes = 7 Za 
: 100 6700 1 ae | .} 
; 101 0701 1! - 4 
: 108 702 1 | oj 
; 703 1! FIELDS: ; | 
+ 104 704 1 2 | 
: 105 205 1 NONE | $y 
+ 106 7 5 :o 4 
: 107 707 1 ! PSECTS: e 4 
: 108 708 1! ry 
; 109 709 1! none - yj 
+ 110 710 1: i 
+ 111 0711 1 ' OWN STORAGE: 2 
: 112 0712 1! 3; 
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ZTSBITL "EDTSWORKIO - Basic EDT workfile routine’ 
GLOBAL ROUTINE EDTSWORKIO ( 


RECORD_NO 
RECORD DESC 
= 


AX=11 Bliss 0-743 Page 4| 
I SCEDT.SRCIWORKIO.BLI;1 (3) 


VAX-11 ss-32 V4 ge 
DISKSVMSMASTER 


Basic EDT workfile routine 
Operation to perform 

record number to perform it on 
Descriptor for the record 


a 


+ ) 
i FUNCTIONAL DESCRIPTION: 
! This is the basic work file i/o routine for EDT. Callable EDT calls this | 
: routine to do any i/o to or from the workfile if this is the routine posees to it by the calling 
! program. This is the routine passed to callable EDT by the ‘'real’’ EDT. 
' CALLING SEQUENCE: 
| 
ret_status.wic.v = EDTSWORKIO (code.rl.r, record_no.rl.r, record_desc.rbu.dx) | 
FORMAL PARAMETERS: ! 


code = a code specifying what kind of i/o operation on the workfile 
is desired | 


record_no = for gets and puts this is the bucket number 


record desc = for gets and puts a descriptor pointing to the contents 
of the bucket 


IMPLICIT INPUTS: 
NONE | 
IMPLICIT OUTPUTS: | 
NONE 
j 

| 

j 


COMPLETION STATUS: 
Normally SS$_NORMAL 
SIDE EFFECTS: 


Se OD SLE a RD DD ei atonal 


PREPPOPIPOPOMPONON NY <2 a st at at at at st tt at ts st 


NONE 
e7 | 
65 
66 BEGIN 
6 
68 Pp 
f i RECORD_DESC : REF BLOCK (8, BYTE); 
771 EXTERNAL ROUTINE 
77 EDTSSWF_OPN, ' open the workfile 
77 EDTSSWF_CLS, ! close the workfile 
774 EDTSS$WF_wR, ' write a record to the work file 
775 EDTSS$wWF_RD; ! read a record from the workfile 


J 2 

EDTSWORKIO WORKIO = module for all i/o to workfile 16-Sep-1984 02:17:4 VAX-11 Bliss-32 V4.0-74 Page 5) 

04.000 EDT$WORKIO = Basic EDT workfile routine 13-808- 138s 95:30:88 DEEKSUMGHASTERSCEDT SRC SORKIO.BLI;1 . (3) | 
| 

BB ica 77 

: 178 sn MESSAGES ((WRKFILOVF, INTERERR, IOERRWRK)); 

: 180 at LOCAL | 

> 181 0780 STATUS, 

2 ee BH 

: 185 $F 4 CASE ..CODE FROM EDTSK_OPEN_IN_OUT TO EDTSK_CLOSE_DEL OF 

: 138 8? ? SET ! over all the code optons 

: 188 Ore CEDTSK OOEN_IN_OUTI : ! open for input and output. 

: 190 0789 STATUS = EDTSSWF_OPN (); | 

> 191 0790 RETURN (.STATUS): 

BB Zp 

; 132 ars CEDTSK GET : ! we wish to get a record from a file | 

: 196 0795 

; 197 L 0796 X1F XBLISS (BLISS32) | 

: 199 ‘ 0798 pains EDTSS$WF_RD (.RECORD_NO, .RECORD_DESC); | 

: $09 U 0800 pe EDTS$S$WF_RD (.RECORD_NO, RECORD_DESC CDSCSA_POINTER)); 

: 20 080 | 

OBES ss 

: 206 0805 4 

3 208 Bane CEDTSK PUT : ! we wish to put a record to a file 

; 

: 209 0808 

; 210 L 9809 X1F XBLISS (BLISS32) 

; 2 $ 811 ais EDTSSWF_WR (.RECORD_NO, .RECORD_DESC); 

: ei4 U os1§ ram EDTSSWF_WR (.RECORD_NO); | 

: 216 0815 

gt phi 

: 219 818 : 

: 220 0819 CEDTS$K_CLOSE_DEL) : 

: 1 20 BEGIN 

: 322 0821 STATUS = EDTSSWF_CLS (); 

; 26 o3 § + ae (. STATUS) F 

: 5 4 ¥ 

; 36 825 CINRANGE, OUTRANGE) : 

> 22 8 6 ASSERT (0); 

: 228 8 TES; 

: $3 539 RETURN (1); 

: 231 3 END; E ! End of routine EDT$WORKIO 


2. 
EDTSWORKIO WORKIO = module for all i/o to workfile 16-Sep VAX-11 Bliss-32 V4. 
04-000 EDTSWORKIO = Basic EDT workfile routine 14-Sep 71388 93: sie NE KSUMGMASTERSCEDT sae WORKIO.BLI; ie on (35 


-TITLE EDTSWORKIO WORKIO - module for all i/o to workf 
-IDENT \vV04-000\ 


EXTRN EDTSSuF OPN. EDTSS$wF_CLS 
EXTRN EDTS$S$WF WF 

EXTRN EDTS$_WRRFI Love, EDTS INTERERR 
EXTRN EDTS_ VOERRURK “EDTSSINTER_ ERR 


~PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 000 .ENTRY Ob ar) ave R2 0721 
03 04 046 BC CF 00009 CASEL a@CODE, Ps} 0784 
0034 0027 QO1A 0011 00007 1$ «WORD g-t8.- 
Ha 
000000006 00 00 FB 0000F CALLS #0, EDTSSINTER_ERR 
2€ 11 80818 BRB 7$ 
000000006 00 00 FB 4 28: CALLS #0, EDTSSWF_OPN 0789 
21 11 QOOT1F BRB 6 
7E 08 AC 7D 00021 3$: MOVQ BG CORP NO, — 0798 
000000006 00 0¢ FB 00025 CALLS #2, EDTSSWF 
18 11 0002C BRB 0803 
7E 08 AC 7D OOOZE 4$ MOVQ ne, ED NO, -(sP) 0811 
000000006 00 02 FB 000 CALLS EDTSSwF_ 
0B 11 000 BRB ; 6336 
000000006 99 4 FB 88 5$: CALLS 10. Ad aad -CL$ ; 0821 
2 0 00 00042 6$: MOVL RO, TUS ; 
04 Babe RET 0822 
50 01 DO 00046 7$: MOVL » RO 0829 
04 00049 RET 0850 


; Routine Size: 74 bytes, Routine Base: _EDTSCODE + 0000 
; 0831 1 
233 0832 1 !<BLF/PAGE> 
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2 } 
EDTSWORKIO WORKIO = module for all i/o to workfile os Sep-1994 VAX=11 Bliss-32 V4.0-7 7. 
sree EDTSWORKIO = Basic EDT workfile routine 4-Sep mtr? 95: NS 28 DISKSVMSMASTER: chbt src WORKIO.BLI;1 ane (4) | 
; 336 OB } END ' End of module EDTSWORKIO : | 
3 5 0 ELUDOM | i 
| | 
m 4 
; (4 
gs 4 
a 4 
3 PSECT SUMMARY : ; 
; Name Bytes Attributes | 3 d 
;  LEDTSCODE 74 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 4 
s 4 
| 4 
| Bed 
: Library Statistics | : ‘ 
ite ees A i Symbols -------- Pages Processing 3 4 
: File Total Loaded Percent Mapped Time : , 
: _$255$DUA28: : EDT. SRCJEDT = 32:1 377 2 0 40 00:00.2 ; 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 1 50 7 00:00.1 g 4 
; T$255$DUA28: CSYSLIBISTARLET.L32;1 9776 0 0 581 00:04.1 7 
| tf 
gs 4 
3; 4 
heat is. 
; 4 
| sf 
; COMMAND QUALIFIERS : , 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:WORKIO/OBJ=OBJ$:WORKIO MSRC$:WORKIO.BLI/UPDATE=(ENH$:WORKIO) 3 y 
3: Size: 74 code + 0 data bytes : 4 
3; Run Time: 00:16.6 ; 4 
3; Elapsed Time: 00:23.3 s 4 
3 Lines/CPU Min: 3023 s 4 
; Lesense/CAy-Hins 8353 g 4 
; nonery Used: 82 pages 3 4 
3; Compilation Complete : é 
: 4 
| ; aoe | 
gM 
: 4 
| oe | 
s d 
j P d 
g 4 
| 3 r| 
s 4 
| s 4 
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